Top 10k strings from Machine Lightning (1985)(Oasis Software).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /
Back to the directory listing
8 GGGDGGGGGGD
6 EEEEEEEEEEEEEEEEEEEE
4 GGGGGGGGGG
4 DDDDDDDDDDDD
4 ;a$'"FILE:";n$
4 ;* *
4 +((YS+SY+1
3 YC+CY,XC+CX;
3 CREG,(XS+SX+1
3 BREG,(YS+SY+1
3 ; =========================
3 +(XC+CX)+(32
2 ppppppppp;
2 f<xDDDGDDDD<
2 a$="W-rite"
2 Workarea -
2 TMPY,(YS+SY+1
2 TMPX,(XS+SX+1
2 SPRITES
2 S-top/C-ontinuous
2 R(T0*}/O|/G
2 ORG end -
2 LD (UNDERC),A
2 GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGEEEEEEEEEEEE
2 GGGGGGGGGGGGGGGGGGGGGGGG#N
2 GGGGGGGGGGEEEEEEEEEE
2 GGGGGGGEEEEEEE
2 FFFFFFFFFFFFFFFFd!
2 FFFFFFFFFFFFFFFF0c
2 FFFFFFFFFFFFFFFF/
2 FFFFFFFFFFFFFFFF.
2 FFFFFFFFFFFFFFFF
2 FFFFFFFFFFFFFFF+
2 EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE!Z
2 D|DDD|DD<f
2 DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD2
2 DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
2 DDDDDDDDDDDDDDDDDDDDDD
2 DD #0 - [$ + 1]
2 DB 0BDH + #1<<5
2 DB 086H + #0<<3
2 CREG,(SX+XS+1
2 CODE
2 CALL OUTA1
2 BjjjjjjjjjjjjBBBBBBBBBBBBBBBBBBBBjjjjjjjjjjjBBBBEEEEEExxxEjjBBBEEEEEEEEEEBBBBBEEEEEEEEEEBBBBBEEEEEEEEEEBBBBBEEEEEEEEEEBBBBBEEEEEEEEEEBBBBBEEEEEEEEEEjjBBBEEEEEEEEEEBBBBBjjjjjjjjjjjj
2 BREG,(SY+YS+1
2 BCDEHLAFBCDEHLSP
2 A-nywhere/S-tart
2 A$="SPRITE OFF SCREEN":
2 ;********************************************
2 ;"OASIS SOFTWARE"
2 ;" NOW LOADING "
2 ; Swop between cursor and character under
2 8GGDGGGDDDGGDDDG"7
2 -INFINITE-
2 *SHT*SLN+5
2 *(YC+CY)),ON
2 (YS+SY)+N,(XS+SX)+M;
2 "New name: ";c$
2 "Load/Verify (L
1 x(UNDERC)
1 vTp/w4w=wGw
1 uARE YOU SURE? (Y/N)
1 u*v3vovqvTpTp|v
1 t cursor to text file.
1 qARE YOU SURE? (Y/N)
1 p
1 ocate strin
1 m;dgain, fin
1 i;`gain, fin
1 dSUBRANGES
1 dLOAD end -
1 dDouble symbol - `
1 dCONSTANTS
1 d error(s) on pass
1 a$="J-oin":
1 `SUBRANGES
1 `LOAD end -
1 `Double symbol - '
1 `CONSTANTS
1 ` error(s) on pass
1 YS+SY+VT>15
1 YRRA=52746
1 XS+SX+HL>30
1 WPSPT=52515
1 TTSPT=52581
1 TSPST=AL+(AH*256
1 TSPND=AL+(AH*256
1 TMPY=52423
1 TMPX=52422
1 TAPP=52691
1 T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T
1 SY+YS,SX+XS;
1 SY+YS+SHT>15
1 SY+YS+A,SX+XS;
1 SX+XS+SLN>30
1 SST+NB>65535
1 SSE=TSPST:
1 SSE=SSE+MEM
1 SSE-MEM<SSS
1 SSE+NB<SSS
1 SPT GEN P
1 SPST=49995
1 SPNO=23305
1 SPND=49997
1 SPMIR=52661
1 SPMAR=52667
1 SPINV=52655
1 SMCODE
1 SET 2,(IX+FG00)
1 SCMIR=52643
1 SCMAR=52649
1 SA=SA-(SB*8
1 RTSPT=52619
1 RELCT=52533
1 RC
1 RADD=RL+RH:
1 R##DM!,|T]##
1 R##DM!,xT]##
1 PTSXR=52569
1 PTSPT=52527
1 PTSOR=52563
1 PTSND=52575
1 ORXOR=52634
1 ORON=52682
1 MOVE=51601
1 MON 48K
1 MON 16K
1 MLT=SSE-SSS
1 MLT=MLT-BFR:
1 MIRROR ATTR":
1 MIRROR ATTR "
1 MEM=MEM-SSE
1 MEM=MB-MA:
1 MEM=AL+AH:
1 MEM2=(65536
1 MACT /
1 MACROS $!
1 MACM 7
1 M48
1 M16
1 LREG=23302
1 LOAD $1+#0
1 LO
1 LD HL,NSPEED
1 LD HL,BLK01
1 LD (VALUE),A
1 LD (LASKEY),A
1 JR NC BLK08
1 JP Z MVFLUP
1 JP Z MVFLDW
1 Invalid comman
1 INVSN=52539
1 IF [#0<-128]&[#0>127]
1 HREG=23301
1 HI
1 Gi* x###",x!
1 Gi* x###",x
1 GTSXR=52551
1 GTSPT=52521
1 GTSOR=52545
1 GTSND=52557
1 EREG=23307
1 DREG=23306
1 DFSPT=52509
1 DEMS2
1 DEMS1
1 DEMOA $
1 DEFSET _SZTO7 = 0 TO 7.
1 DEFSET _SZTO2 = 0 TO 2.
1 DEFSET _SXX
1 DEFSET _SS
1 DEFSET _SRR
1 DEFSET _SROTA
1 DEFSET _SROT
1 DEFSET _SQQ
1 DEFSET _SPP
1 DEFSET _SOO
1 DEFSET _SNNNN = 0 TO 0FFFFH.
1 DEFSET _SNN = -256 TO 255.
1 DEFSET _SIR
1 DEFSET _SII
1 DEFSET _SID
1 DEFSET _SGC
1 DEFSET _SDISP = -128 TO 127.
1 DEFSET _SDD
1 DEFSET _SCE
1 DEFSET _SCC
1 DEFSET _SBIT
1 DEFSET _SBD
1 DEFSET _SAR
1 DEFSET _SADS
1 DEFMAC (/"RST*",_SNN)
1 DEFMAC (/"PUSH*",_SXX)
1 DEFMAC (/"POP*",_SXX)
1 DEFMAC (/"OUT(*),*",C,_SS)
1 DEFMAC (/"LD*,*",_SXX,_SNNNN)
1 DEFMAC (/"LD*,*",_SS,_SNN)
1 DEFMAC (/"LD*,*",_SIR,A)
1 DEFMAC (/"LD*,*",_SDD,_SNNNN)
1 DEFMAC (/"LD*,*",SP,_SII)
1 DEFMAC (/"LD*,*",A,_SIR)
1 DEFMAC (/"LD*,(*)",_SXX,_SNNNN)
1 DEFMAC (/"LD*,(*)",_SDD,_SNNNN)
1 DEFMAC (/"LD*,(*)",A,_SNNNN)
1 DEFMAC (/"LD*,(*)",A,_SBD)
1 DEFMAC (/"LD(**),*",_SXX,_SDISP,_SNN)
1 DEFMAC (/"LD(*),*",_SNNNN,_SXX)
1 DEFMAC (/"LD(*),*",_SNNNN,_SDD)
1 DEFMAC (/"LD(*),*",_SNNNN,A)
1 DEFMAC (/"LD(*),*",_SBD,A)
1 DEFMAC (/"LD(*),*",HL,_SNN)
1 DEFMAC (/"IN*,(*)",_SS,C)
1 DEFMAC (/"EX*,*",AF,AF)
1 DEFMAC (/"**,*",_SBIT,_SZTO7,_SS)
1 DEFMAC (/"**,*",_SADS,A,_SNN)
1 DEFMAC (/"**,*",SBC,HL,_SDD)
1 DEFMAC (/"**,*",ADD,IY,_SRR)
1 DEFMAC (/"**,*",ADD,IX,_SPP)
1 DEFMAC (/"**,*",ADD,HL,_SDD)
1 DEFMAC (/"**,*",ADC,HL,_SDD)
1 DEFMAC (/"**,(**)",_SBIT,_SZTO7,_SXX,_SDISP)
1 DEFMAC (/"**,(*)",_SBIT,_SZTO7,HL)
1 DEFMAC (/"**",_SROT,_SS)
1 DEFMAC (/"**",_SID,_SXX)
1 DEFMAC (/"**",_SID,_SS)
1 DEFMAC (/"**",_SID,_SDD)
1 DEFMAC (/"**",_SAR,_SNN)
1 DEFMAC (/"*(**)",_SROT,_SXX,_SDISP)
1 DEFMAC (/"*(**)",_SID,_SXX,_SDISP)
1 DEFMAC (/"*(*)",_SROT,HL)
1 DEFMAC (/"*(*)",_SID,HL)
1 DEFMAC (/"*",_SROTA)
1 DEFMAC ("RST*",_SZTO7)
1 DEFMAC ("RRD")
1 DEFMAC ("RLD")
1 DEFMAC ("RETN")
1 DEFMAC ("RETI")
1 DEFMAC ("RET*",_SCE)
1 DEFMAC ("RET")
1 DEFMAC ("PUSH*",_SQQ)
1 DEFMAC ("POP*",_SQQ)
1 DEFMAC ("OUTI")
1 DEFMAC ("OUTD")
1 DEFMAC ("OUT(*),*",_SNN,A)
1 DEFMAC ("OTIR")
1 DEFMAC ("OTDR")
1 DEFMAC ("ORG*",_SNNNN)
1 DEFMAC ("NOP")
1 DEFMAC ("NEG")
1 DEFMAC ("LOAD*",_SNNNN)
1 DEFMAC ("LIST*",_SOO)
1 DEFMAC ("LDIR")
1 DEFMAC ("LDI")
1 DEFMAC ("LDDR")
1 DEFMAC ("LDD")
1 DEFMAC ("LD*,*",_SS,_SS)
1 DEFMAC ("LD*,(**)",_SS,_SXX,_SDISP)
1 DEFMAC ("LD*,(*)",_SS,HL)
1 DEFMAC ("LD(**),*",_SXX,_SDISP,_SS)
1 DEFMAC ("LD(*),*",HL,_SS)
1 DEFMAC ("JR*,*",_SCC,_SNNNN)
1 DEFMAC ("JR*",_SNNNN)
1 DEFMAC ("JP*,*",_SCE,_SNNNN)
1 DEFMAC ("JP*",_SNNNN)
1 DEFMAC ("JP(*)",_SII)
1 DEFMAC ("INIR")
1 DEFMAC ("INI")
1 DEFMAC ("INDR")
1 DEFMAC ("IND")
1 DEFMAC ("IN*,(*)",A,_SNN)
1 DEFMAC ("IM*",_SZTO2)
1 DEFMAC ("HALT")
1 DEFMAC ("EXX")
1 DEFMAC ("EX*,*",DE,HL)
1 DEFMAC ("EX(*),*",SP,_SII)
1 DEFMAC ("EI")
1 DEFMAC ("DW*",_SNNNN)
1 DEFMAC ("DS*",_SNNNN)
1 DEFMAC ("DJNZ*",_SNNNN)
1 DEFMAC ("DI")
1 DEFMAC ("DD*",_SDISP)
1 DEFMAC ("CPIR")
1 DEFMAC ("CPI")
1 DEFMAC ("CPDR")
1 DEFMAC ("CPD")
1 DEFMAC ("CALL*,*",_SCE,_SNNNN)
1 DEFMAC ("CALL*",_SNNNN)
1 DEFMAC ("**,*",_SADS,A,_SS)
1 DEFMAC ("**,(**)",_SADS,A,_SXX,_SDISP)
1 DEFMAC ("**,(*)",_SADS,A,HL)
1 DEFMAC ("**",_SAR,_SS)
1 DEFMAC ("*(**)",_SAR,_SXX,_SDISP)
1 DEFMAC ("*(*)",_SAR,HL)
1 DEFMAC ("*",_SGC)
1 DD #1 - [$ + 1]
1 DB 9 + #2<<4
1 DB 80H + #1<<3 + #2
1 DB 80H + #0<<3 +#1
1 DB 70H + #1
1 DB 7 + #0<<3
1 DB 4EH + #0<<3
1 DB 46H + #0<<3
1 DB 40H + #0<<3 + #1
1 DB 4 + #0 + #1<<3
1 DB 36H, #1
1 DB 34H + #0
1 DB 3 + #0<<3 + #1<<4
1 DB 27H + #0<<3
1 DB 20H + #0<<3
1 DB 1 + #0<<4
1 DB 0FDH, 9 + #2<<4
1 DB 0EDH,4BH + #0<<4
1 DB 0EDH,44H
1 DB 0EDH,0B9H
1 DB 0EDH,0B8H
1 DB 0EDH,0B1H
1 DB 0EDH,0B0H
1 DB 0EDH,0A9H
1 DB 0EDH,0A8H
1 DB 0EDH,0A1H
1 DB 0EDH,0A0H
1 DB 0EDH, 6FH
1 DB 0EDH, 57H + #1<<3
1 DB 0EDH, 4DH
1 DB 0EDH, 4AH + #2<<4
1 DB 0EDH, 43H + #1<<4
1 DB 0EDH, 42H + #2<<4
1 DB 0EDH, 41H + #1<<3
1 DB 0EDH, 40H + #0<<3
1 DB 0EDH, 0BBH
1 DB 0EDH, 0BAH
1 DB 0EDH, 0B3H
1 DB 0EDH, 0B2H
1 DB 0EDH, 0ABH
1 DB 0EDH, 0AAH
1 DB 0EDH, 0A3H
1 DB 0EDH, 0A2H
1 DB 0EDH, 067H
1 DB 0EDH, 047H + #0<<3
1 DB 0EDH, 045H
1 DB 0DDH, 9 + #2<<4
1 DB 0DDH + #2<<5, 86H + #0<<3, #3
1 DB 0DDH + #2<<5, 0CBH, #3, 46H + #0<<6 + #1<<3
1 DB 0DDH + #1<<5, 86H + #0<<3, #2
1 DB 0DDH + #1<<5, 46H + #0<<3, #2
1 DB 0DDH + #1<<5, 34H + #0, #2
1 DB 0DDH + #1<<5, 23H + #0<<3
1 DB 0DDH + #1<<5, 22H
1 DB 0DDH + #1<<5, 0CBH, #2, #0<<3 + 6
1 DB 0DDH + #0<<5, 70H + #2, #1
1 DB 0DDH + #0<<5, 36H, #1, #2
1 DB 0DDH + #0<<5, 2AH
1 DB 0DDH + #0<<5, 21H
1 DB 0DDH + #0<<5, 0E5H
1 DB 0DDH + #0<<5, 0E1H
1 DB 0DBH, #1
1 DB 0D3H, #0
1 DB 0CBH, 46H + #0<<6 + #1<<3
1 DB 0CBH, 40H + #0<<6 + #1<<3 + #2
1 DB 0CBH, #0<<3 + 6
1 DB 0CBH, #0<<3 + #1
1 DB 0C7H + #0<<3
1 DB 0C7H + #0
1 DB 0C6H + #0<<3, #2
1 DB 0C6H + #0<<3, #1
1 DB 0C5H + #0<<4
1 DB 0C4H + #0<<3
1 DB 0C2H + #0<<3
1 DB 0C1H + #0<<4
1 DB 0C0H + #0<<3
1 DB 0BDH + #0<<5
1 DB 0AH + #1<<4
1 DB 06H + #0<<3, #1
1 DB 02H + #0<<4
1 DB #0 >> 8
1 DB #0 & 0FFH
1 CREG=23304
1 CREG,LSPN:
1 CP=MS+((YS+SY+1
1 CP=MS+((SY+YS+1
1 COLDS=52450
1 CALL REPEAT
1 CALL LIMITS
1 CALL CLRCUR
1 CA=IN+(PA*8
1 BREG=23303
1 BREG,SSPN:
1 BLKON=52625
1 ATTON=51530
1 ATTOF=51538
1 ARRY=52697
1 ARM START "
1 ANDON=52673
1 AL=SSS-(AH*256
1 AL=SSE-(AH*256
1 AL=NB-(AH*256
1 AL=MEM2-(AH*256
1 AL=MEM-(AH*256
1 AL=BFS-(AH*256
1 AL=BFR-(AH*256
1 A$="SPRITES INCOMPATABLE":
1 A$="SPRITE NOT DEFINED":
1 A$="SPRITE ALREADY DEFINED":
1 A$="LENGTH (1-15)":
1 A$=" WINDOW OFF SCREEN":
1 A$=" SPRITE OFF SCREEN":
1 A$=" SPRITE NOT DEFINED":
1 A$=" PLEASE REDO":
1 A$=" OUT OF SPRITE MEMORY":
1 A$=" OUT OF MEMORY":
1 A$=" NO COLD START ..?":
1 A$=" HEIGHT (1-15)":
1 A$=" CHARACER OFF SCREEN":
1 = (RLCA,RRCA,RLA,RRA).
1 = (RLC,RRC,RL,RR,SLA,SRA,SLI,SRL).
1 = (OFF,ON).
1 = (NZ,Z,NC,C,PO,PE,P,M).
1 = (NZ,Z,NC,C).
1 = (IX,IY).
1 = (INC,DEC).
1 = (HL,IX,IY).
1 = (DAA,CPL,SCF,CCF).
1 = (BIT,RES,SET).
1 = (BC,DE,IY,SP).
1 = (BC,DE,IX,SP).
1 = (BC,DE,HL,SP).
1 = (BC,DE,HL,AF).
1 = (BC,DE).
1 = (B,C,D,E,H,L,GAP,A).
1 = (ADD,ADC,SUB,SBC,AND,XOR,OR,CP).
1 = (ADD,ADC,GAP,SBC).
1 ;Temporary set ptr
1 ;T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T
1 ;Standard Z80 instruction set
1 ;Register SETS
1 ;Pseudo op macro definitions
1 ;Number SETS
1 ;Instruction SETS
1 ;HL is a special case
1 ;Force error
1 ;Constants
1 ;Condition SETS
1 ;============================
1 ;===================
1 ;;"CLEAR SCREEN (Y/N) ?":
1 ;;" ":
1 ;1) 8 Bit load group
1 ;---------------------------------------------
1 ;* Z80 MACRO DEFINITIONS *
1 ;* (C) R.G.Harvey *
1 ;"ZAPS .... "
1 ;"Y POS 1";
1 ;"X POS 1";
1 ;"WIPE SPRITE ";SNO;" (Y/N)":
1 ;"WHITE LIGHTNING";
1 ;"WARM START (Y/N) ?":
1 ;"TREASURE.... "
1 ;"SPST.. ";TSPST;" ";
1 ;"SPRITE NUMBER-1 "
1 ;"SPRITE MEMORY FUNCTIONS (Y/N)":
1 ;"SPRITE LENGTH-1 ";
1 ;"SPRITE HEIGHT-1 ";
1 ;"SPRITE 00000 ";
1 ;"SPND.. ";TSPND;" "
1 ;"SPECTRE-MON (48K)":
1 ;"SPECTRE-MON (16K)":
1 ;"SPACE WARS...."
1 ;"SPACE INVADERS "
1 ;"SCREEN FUNTIONS (Y/N)":
1 ;"SAVING .. ";A$:
1 ;"SAVE SPRITES TO TAPE (Y/N)":
1 ;"ROTATE SPRITE";SNO;" (Y/N)":
1 ;"ROBOTS.... "
1 ;"REWIND AND PLAY TAPE TO VERIFY":
1 ;"RELOCATE SPRITES (Y/N)":
1 ;"PUT SPRITE ";SNO;" (Y/N) ":
1 ;"PUT A SPRITE INTO A SPRITE (Y/N)":
1 ;"PAPER.7";
1 ;"PAPER.";IC:
1 ;"PAPER.":
1 ;"PAC-MEN.... "
1 ;"NEW SPRITE NUMBER (1-255)":
1 ;"MONSTERS... "
1 ;"MEMORY LEFT 00000 " ;
1 ;"LUNAR LANDER.. "
1 ;"LOGICAL SPRITE FUNCTIONS (Y/N)":
1 ;"LOAD SPRITES FROM TAPE (Y/N)":
1 ;"INPUT SPRITE NUMBER (1-255)"
1 ;"INPUT SPRITE ";A$
1 ;"INPUT SMALL SPRITE NUMBER":
1 ;"INPUT ROW":
1 ;"INPUT NUMBER OF BYTES":
1 ;"INPUT LARGER SPRITE NUMBER":
1 ;"INPUT DATA DIRECT (Y/N) ":
1 ;"INPUT COLUMN":
1 ;"INPUT BUFFER SIZE IN BYTES":
1 ;"INK...0";
1 ;"INK...";IC:
1 ;"INK...":
1 ;"IF YOU ";
1 ;"GET SPRITE ";SNO;" (Y/N)":
1 ;"FROGGER.... "
1 ;"FLASH.0";
1 ;"FLASH.";IC:
1 ;"FLASH.":
1 ;"EXPLOSIONS... "
1 ;"ERROR-";
1 ;"ENTER CHARACTER NUMBER (1-167) ":
1 ;"DUMP SCREEN TO CHR$ SQR (Y/N)?":
1 ;"DUMP CHR$ SQR TO SCREEN (Y/N) ?":
1 ;"DUMP ARCADE CHARACTERS TO ,":
1 ;"DONKEY KONG "
1 ;"DEFENDER.... "
1 ;"CONFLICT.... "
1 ;"COLD START (Y/N) ?":
1 ;"CLEAR CHR$ SQR (Y/N)?":
1 ;"CITY BOMBER... "
1 ;"CHANGE BUFFER SIZE (Y/N)"
1 ;"CENTIPEDE.... "
1 ;"BRIGHT0";
1 ;"BRIGHT";IC:
1 ;"BRIGHT":
1 ;"ATTR..0"
1 ;"ATTR..";IC:
1 ;"ATTR..":
1 ;"ASTROIDS.... "
1 ;"ASSAULT COURSE "
1 ;"ARCADE CHARACTER SET";
1 ;"ARCADE CHARACTER (Y/N) ?":
1 ;"> ";BFR:
1 ;"0123456789ABCDEF "
1 ;" TYPE GOTO 20 "
1 ;" SPECTREMAC NOW LOADING ":
1 ;" INPUT DATA LINE -- ";N+1
1 ;" ";
1 ;" ";
1 ;" ":
1 ;" "
1 ;" "
1 ; defined limits.
1 ; Set up cursor for blink.
1 ; Scan system key
1 ; Scan keyb
1 ; Save keypress.
1 ; Return, already set.
1 ; Restore HL.
1 ; Put out cursor.
1 ; Other character attribute
1 ; Normal repeOTDR
1 ; Move on to next set of limits.
1 ; Keypress in B reg.
1 ; Jump,bincorrect.
1 ; Get value from store.
1 ; Get screen character.
1 ; Get keypress.
1 ; File up.
1 ; File down.
1 ; Cursor on screen.
1 ; Cursor attribute
1 ; Clear cursor.
1 ; Check if keypress in within
1 ; ==========================
1 ; ========================
1 ; ======================
1 ; ====================
1 ; ===============
1 ; 9) Return group
1 ; 8) Jump and call group
1 ; 7) Bit test and set group
1 ; 6) Rotate and shift group
1 ; 5) 16 Bit arithmetic group
1 ; 4) General purpose arithmetic and CPU control
1 ; 3) 8 Bit arithmetic group
1 ; 2) 16 Bit load group
1 ; 10) Input / Output group
1 8m* |###",|!
1 8m* |###",|
1 8.*Ky++r+s+"Ky
1 8.*Ku++r+s+"Ku
1 *pyq#"py:sy
1 *puq#"pu:su
1 *Ky++F+N#{
1 *Ku++F+N#{
1 *Iy4*[y6*#"[y:
1 *Iy4*[y6*#"[y
1 *Iu4*[u6*#"[u:
1 *Iu4*[u6*#"[u
1 *(YC+CY)))
1 (SPST),AL:
1 (SPND),AL:
1 (RW+SSPH)>LSPH
1 (MOVE),AL:
1 (CL+SSPL)>LSPL
1 (BREG)*256
1 (B,C,D,E,H,L,GAP,A,BC,DE,HL,SP,
1 $2: = [$2 & 1111111111110111B] + #0<<3
1 $2: = $2 | [$2 & 0000001000000000B]<<1
1 $2: = $2 & 1111101111111111B
1 "SAVE > ";A$:
1 !d3210**MTE*CSLKP*>
1 !`3210**MTE*CSLKP*>
1 !'|q#q#p#p#6
1 !'xq#q#p#p#6
1 XOR,CP,RLC,RL,RRC,RR,SLA,SRA,SRL,
1 SLI,RLCA,RRCA,RLA,RRA,BIT,RES,SET,
1 M,OFF,ON,ADD,ADC,SUB,SBC,AND,OR,
1 INC,DEC,DAA,CPL,SCF,CCF).
1 AF,IX,IY,I,R,NZ,Z,NC,PO,PE,P,
1 ===================== *
1 *****
1
1